PC Home 109/PC Home 109.iso/data1.cab/Program_Files/be001.dxr/00002_trevor.ls

Text File | 2001-03-02 | 7.6 KB | 204 lines

on trevor
  global timecheck
  puppetSprite(8, 1)
  if the timer > 500 then
    set timecheck to 0
  else
    set direction to random(8)
    repeat while the timer < 20
      if direction = 1 then
        set nom to the name of member the memberNum of sprite 8
        if (nom = "t1nw") or "t2nw" or "t1e" or "t2e" or "t1s" or "t2s" or "t1w" or "t2w" or "t1ne" or "t2ne" or "t1se" or "t2se" or "t1sw" or "t2sw" then
          set nom to "t1n"
          set the memberNum of sprite 8 to the number of member nom
        end if
        repeat with n = random(5) down to 1
          set the locV of sprite 8 to the locV of sprite 8 - 1
          if nom = "t1n" then
            set nom to "t2n"
          else
            if nom = "t2n" then
              set nom to "t1n"
            end if
          end if
          set the memberNum of sprite 8 to the number of member nom
          updateStage()
          if the locV of sprite 8 <= 45 then
            set the locV of sprite 8 to 432
          end if
        end repeat
      end if
      if direction = 3 then
        set nom to the name of member the memberNum of sprite 8
        if (nom = "t1nw") or "t2nw" or "t1n" or "t2n" or "t1s" or "t2s" or "t1w" or "t2w" or "t1ne" or "t2ne" or "t1se" or "t2se" or "t1sw" or "t2sw" then
          set nom to "t1e"
          set the memberNum of sprite 8 to the number of member nom
        end if
        repeat with n = random(5) down to 1
          set the locH of sprite 8 to the locH of sprite 8 + 1
          if nom = "t1e" then
            set nom to "t2e"
          else
            if nom = "t2e" then
              set nom to "t1e"
            end if
          end if
          set the memberNum of sprite 8 to the number of member nom
          updateStage()
          if the locH of sprite 8 >= 597 then
            set the locH of sprite 8 to 321
          end if
        end repeat
      end if
      if direction = 5 then
        set nom to the name of member the memberNum of sprite 8
        if (nom = "t1nw") or "t2nw" or "t1n" or "t2n" or "t1e" or "t2e" or "t1w" or "t2w" or "t1ne" or "t2ne" or "t1se" or "t2se" or "t1sw" or "t2sw" then
          set nom to "t1s"
          set the memberNum of sprite 8 to the number of member nom
        end if
        repeat with n = random(5) down to 1
          set the locV of sprite 8 to the locV of sprite 8 + 1
          if nom = "t1s" then
            set nom to "t2s"
          else
            if nom = "t2s" then
              set nom to "t1s"
            end if
          end if
          set the memberNum of sprite 8 to the number of member nom
          updateStage()
          if the locV of sprite 8 >= 432 then
            set the locV of sprite 8 to 45
          end if
        end repeat
      end if
      if direction = 7 then
        set nom to the name of member the memberNum of sprite 8
        if (nom = "t1nw") or "t2nw" or "t1n" or "t2n" or "t1e" or "t2e" or "t1s" or "t2s" or "t1ne" or "t2ne" or "t1se" or "t2se" or "t1sw" or "t2sw" then
          set nom to "t1w"
          set the memberNum of sprite 8 to the number of member nom
        end if
        repeat with n = random(5) down to 1
          set the locH of sprite 8 to the locH of sprite 8 - 1
          if nom = "t1w" then
            set nom to "t2w"
          else
            if nom = "t2w" then
              set nom to "t1w"
            end if
          end if
          set the memberNum of sprite 8 to the number of member nom
          updateStage()
          if the locH of sprite 8 <= 321 then
            set the locH of sprite 8 to 597
          end if
        end repeat
      end if
      if direction = 2 then
        set nom to the name of member the memberNum of sprite 8
        if (nom = "t1nw") or "t2nw" or "t1n" or "t2n" or "t1e" or "t2e" or "t1s" or "t2s" or "t1w" or "t2w" or "t1se" or "t2se" or "t1sw" or "t2sw" then
          set nom to "t1ne"
          set the memberNum of sprite 8 to the number of member nom
        end if
        repeat with n = random(5) down to 1
          set the locV of sprite 8 to the locV of sprite 8 - 1
          set the locH of sprite 8 to the locH of sprite 8 + 1
          if nom = "t1ne" then
            set nom to "t2ne"
          else
            if nom = "t2ne" then
              set nom to "t1ne"
            end if
          end if
          set the memberNum of sprite 8 to the number of member nom
          updateStage()
          if the locH of sprite 8 >= 597 then
            set the locH of sprite 8 to 321
          end if
          if the locV of sprite 8 <= 45 then
            set the locV of sprite 8 to 432
          end if
        end repeat
      end if
      if direction = 4 then
        set nom to the name of member the memberNum of sprite 8
        if (nom = "t1nw") or "t2nw" or "t1n" or "t2n" or "t1e" or "t2e" or "t1s" or "t2s" or "t1w" or "t2w" or "t1ne" or "t2ne" or "t1sw" or "t2sw" then
          set nom to "t1se"
          set the memberNum of sprite 8 to the number of member nom
        end if
        repeat with n = random(5) down to 1
          set the locV of sprite 8 to the locV of sprite 8 + 1
          set the locH of sprite 8 to the locH of sprite 8 + 1
          if nom = "t1se" then
            set nom to "t2se"
          else
            if nom = "t2se" then
              set nom to "t1se"
            end if
          end if
          set the memberNum of sprite 8 to the number of member nom
          updateStage()
          if the locH of sprite 8 >= 597 then
            set the locH of sprite 8 to 321
          end if
          if the locV of sprite 8 >= 432 then
            set the locV of sprite 8 to 45
          end if
        end repeat
      end if
      if direction = 6 then
        set nom to the name of member the memberNum of sprite 8
        if (nom = "t1nw") or "t2nw" or "t1n" or "t2n" or "t1e" or "t2e" or "t1s" or "t2s" or "t1w" or "t2w" or "t1ne" or "t2ne" or "t1se" or "t2se" then
          set nom to "t1sw"
          set the memberNum of sprite 8 to the number of member nom
        end if
        repeat with n = random(5) down to 1
          set the locV of sprite 8 to the locV of sprite 8 + 1
          set the locH of sprite 8 to the locH of sprite 8 - 1
          if nom = "t1sw" then
            set nom to "t2sw"
          else
            if nom = "t2sw" then
              set nom to "t1sw"
            end if
          end if
          set the memberNum of sprite 8 to the number of member nom
          updateStage()
          if the locH of sprite 8 <= 321 then
            set the locH of sprite 8 to 597
          end if
          if the locV of sprite 8 >= 432 then
            set the locV of sprite 8 to 45
          end if
        end repeat
      end if
      if direction = 8 then
        set nom to the name of member the memberNum of sprite 8
        if (nom = "t1sw") or "t2sw" or "t1n" or "t2n" or "t1e" or "t2e" or "t1s" or "t2s" or "t1w" or "t2w" or "t1ne" or "t2ne" or "t1se" or "t2se" then
          set nom to "t1nw"
          set the memberNum of sprite 8 to the number of member nom
        end if
        repeat with n = random(5) down to 1
          set the locV of sprite 8 to the locV of sprite 8 - 1
          set the locH of sprite 8 to the locH of sprite 8 - 1
          if nom = "t1nw" then
            set nom to "t2nw"
          else
            if nom = "t2nw" then
              set nom to "t1nw"
            end if
          end if
          set the memberNum of sprite 8 to the number of member nom
          updateStage()
          if the locH of sprite 8 <= 321 then
            set the locH of sprite 8 to 597
          end if
          if the locV of sprite 8 <= 45 then
            set the locV of sprite 8 to 432
          end if
        end repeat
      end if
    end repeat
  end if
end